home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 85 / 64er_Magazin_Sonderheft_85_19xx_Markt__Technik_de_Side_A.d64 / bard's iii-ed (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  74 lines
  1. 0 poke53282,1:poke53283,4
  2. 10 print"[147]bittecharacterdisk einlegen
  3. 20 [161] a$:[139] a$[178]""[167] 20
  4. 30 [143] ***************************
  5. 40 [143] *  bards tale iii editor  *
  6. 50 [143] *                         *
  7. 60 [143] *          von            *
  8. 70 [143] *     michael goetze      *
  9. 80 [143] *                         *
  10. 90 [143] ***************************
  11. 100 [153]"loadprint#or=tan=^  ortan=tan^         ^' ";
  12. 110 [153]"or=tan^   ^  or===^";
  13. 120 [153]"print# (NULL) -^or^  -tan>^ortan^or=tan=tan<  ";
  14. 130 [153]" (NULL)  ortan^(NULL)or^ (NULL)(NULL)(NULL) ";
  15. 140 [153]"print# (NULL) (NULL)(NULL)(NULL)exp  (NULL)  (NULL)(NULL) (NULL)(NULL)(NULL) (NULL) (NULL) (NULL)";
  16. 150 [153]" (NULL)  (NULL) (NULL)(NULL)(NULL)exp (NULL)(NULL)(NULL) ";
  17. 160 [153]"print# exp exp/>exp/tan>tantan>>tan>expexp /tanexp  ";
  18. 170 [153]"/>tantan>tan>>>exp/>>>exp"
  19. 180 [137]3260
  20. 190 [151]53280,0:[151]53281,0:[151]53272,23:[151]53270,24
  21. 200 [134]n%(256),g$(300),gt%(12),ra$(10),kl$(30),sr%,iq%,dx%,cn%,lk%,ra%,kl%,gs%,ex
  22. 210 [134]ge,lm%,lv%,sm%,hm%,sp%,hp%,n$(18,2)
  23. 220 [129]i[178]0[164]275:[135]g$(i):[130]:[143] gegenstaende
  24. 230 [129]i[178]0[164]6:[135]ra$(i):[130]:[143] rassen
  25. 240 [129]i[178]0[164]25:[135]kl$(i):[130]:[143] klassen
  26. 250 [142]
  27. 260 [143] charakter einlesen
  28. 270 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  29. 280 [153]"(NULL)**********************************(NULL)"
  30. 290 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  31. 300 [153]"onon";:[159]1,8,15
  32. 310 [159]2,8,2,"#":[129]s[178]1[164]17:[141]1070:[143] sector einlesen
  33. 320 [153]"print#*wait";:na$[178]"":[152]1,"b-p:"2,0:[129]p[178]0[164]15:[141]1080:na$[178]na$[170]a$:[130]p:ww[178]0
  34. 330 [141]350:[153]"print#*wait";:na$[178]"":[152]1,"b-p:"2,128:[129]p[178]0[164]15:[141]1080:na$[178]na$[170]a$:[130]p
  35. 340 ww[178]1:[141]350:[130]s:[142]
  36. 350 nn$[178]"":[129]p[178]1[164]16
  37. 360 q[178][198]([202](na$,p,1)):[139]q[177]218[167]q[178]q[171]64
  38. 370 [139]q[178]170[167]q[178]138
  39. 380 [139]q[178]191[167]q[178]128
  40. 390 [139]q[177]127[167]q[178]q[171]128[170]32
  41. 400 nn$[178]nn$[170][199](q)
  42. 410 [130]p:n$(s,ww)[178]nn$:[142]
  43. 420 [143] character veraendern
  44. 430 [153]"load";:na$[178]"":[129]p[178]0[164]15:na$[178]na$[170][199](n%(i[170]p)):[130]p
  45. 440 sr%[178]n%(i[170]16):iq%[178]n%(i[170]17)
  46. 450 dx%[178]n%(i[170]18):cn%[178]n%(i[170]19)
  47. 460 lk%[178]n%(i[170]20):ra%[178]n%(i[170]42)
  48. 470 kl%[178]n%(i[170]41):gs%[178]n%(i[170]43)
  49. 480 ex[178]n%(i[170]21):ex[178]ex[170]((n%(i[170]22))[172]256)
  50. 490 ex[178]ex[170](n%(i[170]23))[172]65536
  51. 500 ex[178]ex[170]((((n%(i[170]24))[172]256)[172]256)[172]256)
  52. 510 ge[178](n%(i[170]25)):ge[178]ge[170]((n%(i[170]26))[172]256)
  53. 520 ge[178]ge[170](n%(i[170]27))[172]65536
  54. 530 ge[178]ge[170]((((n%(i[170]28))[172]256)[172]256)[172]256)
  55. 540 lm%[178]n%(i[170]29):lm%[178]lm%[170]n%(i[170]30)[172]256
  56. 550 lv%[178]n%(i[170]31):lv%[178]lv%[170]n%(i[170]32)[172]256
  57. 560 sm%[178]n%(i[170]37):sm%[178]sm%[170]n%(i[170]38)[172]256
  58. 570 hm%[178]n%(i[170]33):hm%[178]hm%[170]n%(i[170]34)[172]256
  59. 580 sp%[178]n%(i[170]39):sp%[178]sp%[170]n%(i[170]40)[172]256
  60. 590 hp%[178]n%(i[170]35):hp%[178]hp%[170]n%(i[170]36)[172]256
  61. 600 [129]p[178]1[164]12:gt%(p)[178]n%(i[170]46[170]p[172]3):[130]p
  62. 620 [153]"loadcont[atn] (NULL)ame:list";na$
  63. 630 [129]p[178]0[164]15:n%(i[170]p)[178][194](1033[170]p):[130]
  64. 640 [153]"cont[peek] (NULL)asse:list";ra$(ra%)
  65. 650 [153]"cont[len] (NULL)lasse:list";kl$(kl%[170]13[172]gs%)
  66. 660 [153]"cont[str$] len(NULL):list";cn%
  67. 670 [153]"cont[val] str$(NULL):list";dx%
  68. 680 [153]"cont[asc] right$(NULL):list";iq%
  69. 690 [153]"cont[chr$] (NULL)(NULL):list";lk%
  70. 700 [153]"cont[left$] (NULL)(NULL):list";sr%
  71. 710 [153]"cont[right$] valxperience:list";ex
  72. 720 [153]"cont[mid$] chr$old      :list";ge
  73. 730 [153]"cont[(NULL)] (NULL)eve
  74.